#tag Module
Protected Module TabPanelExtension
	#tag Method, Flags = &h0
		Function AllowsTruncatedLabels(Extends t as TabPanel) As Boolean
		  
		  #if TargetCocoa
		    
		    declare function allowsTruncatedLabels lib CocoaLib selector "allowsTruncatedLabels" (obj_id as Integer) as Boolean
		    
		    return allowsTruncatedLabels(t.handle)
		    
		  #else
		    
		    #pragma unused t
		    
		  #endif
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub AllowsTruncatedLabels(Extends t as TabPanel, assigns value as Boolean)
		  
		  #if TargetCocoa
		    
		    declare sub setAllowsTruncatedLabels lib CocoaLib selector "setAllowsTruncatedLabels:" (obj_id as Integer, value as Boolean)
		    
		    setAllowsTruncatedLabels(t.handle, value)
		    
		  #else
		    
		    #pragma unused t
		    #pragma unused value
		    
		  #endif
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Function MinimumSize(Extends t as TabPanel) As Cocoa.NSSize
		  
		  #if TargetCocoa
		    
		    declare function minimumSize lib CocoaLib selector "minimumSize" (obj_id as Integer) as Cocoa.NSSize
		    
		    return minimumSize(t.handle)
		    
		  #else
		    
		    #pragma unused t
		    
		  #endif
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h0
		Function TabViewType(Extends t as TabPanel) As NSTabViewType
		  
		  #if TargetCocoa
		    
		    declare function tabViewType lib CocoaLib selector "tabViewType" (obj_id as Integer) as NSTabViewType
		    
		    return tabViewType(t.handle)
		    
		  #else
		    
		    #pragma unused t
		    
		  #endif
		  
		End Function
	#tag EndMethod


	#tag Enum, Name = NSTabViewType, Type = Integer, Flags = &h0
		NSTopTabsBezelBorder
		  NSLeftTabsBezelBorder
		  NSBottomTabsBezelBorder
		  NSRightTabsBezelBorder
		  NSNoTabsBezelBorder
		  NSNoTabsLineBorder
		NSNoTabsNoBorder
	#tag EndEnum


	#tag ViewBehavior
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
	#tag EndViewBehavior
End Module
#tag EndModule
